MICROSOFT- BASIC 
REFERENCE BOOK 




This book is a quick reference guide to the Microsoft™ BASIC 
language, including the BASIC-80 Interpreter, BASIC-86 Interpreter 
and BASIC Compiler. If you are using the BASIC Compiler, see page 
17 for language differences that may affect your programming. 



SPECIAL CHARACTERS n means control) 



! A Enters Edit Mode on line being typed or last line typed 

I C Interrupts program execution, returns to BASIC command level 
and types OK 

IG Rings the bell at the terminal 

I H Deletes last character typed 

Tl Tab. Tab stops are every 8 columns 

I O Halts/resumes program output 

I R Retypes the line currently being typed 

I S Suspends program execution 

I Q Resumes execution after control-S 

T U Deletes line being typed 

I X Deletes line being typed 



< return > Ends every line typed in 

< linefeed > Used to break a logical line into physical lines 

< rubout > Deletes last character typed 

< escape > Escapes Edit Mode subcommands 

Current line for EDIT, RENUM, DELETE, LIST, LLIST commands 
&Oor& Prefix for octal constant 
&H Prefix for hexadecimal constant 

: Separates statements typed on the same line 

? Equivalent to PRINT statement (L? is not equivalent to LPRINT) 
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VARIABLE TYPE DECLARATION CHARACTERS 



$ String 

% Integer 

! Single precision 

# Double precision 



(Oto 255 characters) 
(-32768 to 32767) 
(7.1 digit floating point) 
(16.8 digit floating point) 



Storage Bytes Used 

3+# of characters 
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Syntax Conventions used in this book 

In the syntax of statements, functions and commands, lower case items are to be 
supplied by the user, "filename" means a string expression that follows the naming 
convention of the operating system, "string" means a string expression and "exp" 
means a numeric expression, "line" and "line number" both mean line number, "f" 
is a file number or expression that evaluates to a file number, "n" means an integer. 
An item in square brackets is optional. Ellipsis (...) indicates an item may be 
repeated. 



NOTE: The FILES, RESET, and SYSTEM commands are in CP/M BASIC-80 only. 
The CP/M operating system appends the default extension .BAS to filenames used 
with LOAD, MERGE, RUN and SAVE. 



COMMANDS 



Command Syntax/Function 

AUTO AUTO [line] [,inc] 



Example 

AUTO 100,50 



Generate line numbers automatically. 
CLEAR CLEAR [,[exp1] [,exp2] ] 



CLEAR ,32768 
CLEAR ,,2000 



Clear program variables. Exp1 sets 
end of memory and exp2 sets amount 
of stack space. 



CONT CONT 

Continue program execution. 



CONT 



DELETE DELETEstart line [-end line] 
Delete program lines. 



DELETE 200 
DELETE 20-25 
EDIT 110 



EDIT EDIT line number 

Edit a program line. See Edit Mode 
Subcommands. 
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Command Syntax/Function 



FILES FILES [filename] 

List files in disk directory that match 
filename. ? matches any character. 
* matches any name or extension. 

LIST LIST [line[-[line] ] ] 

List program lines at terminal. 

LLIST LLIST[line[-[line] ] ] 

List program lines at printer. 

LOAD LOAD filename [,R] 
Load a program file. 
,R option means RUN. 

MERGE MERGEfilename 

Merge program on disk with program 
in memory. Program on disk must have 
been SA VEd in ASCII mode. 

NAME NAME old filename AS new filename 
Change the name of a disk file. 

NEW NEW 

Delete current program and variables. 

NULL NULL exp 

Set the number of nulls printed after 
each line. 

RENUM RENUM [ [new line] [,[old line] [,inc] ] ] 
Renumber program lines. 

RESET RESET 

Reinitialize CP/M disk information. 
Use after changing diskettes. 

RUN RUN [line number] 

Run a program (from line number). 

RUN filename [,R] 

Load a program from disk and run it. 
,R used to keep files open. 

SAVE SAVE filename [,A or, P] 

Save the program in memory with 
name "filename." , A saves program in 
ASCII. ,P protects file. 



Example 



FILES 

FILES "*.BAS" 
FILES "TEST.BAS" 
FILES "B:*. *" 

LIST 100-1000 
LLIST 50- 
LOAD "INVEN" 

MERGE "SUB1" 



NAME"SUB1"AS"SUB2" 

NEW 

NULL 2 

RENUM 100„100 
RESET 

RUN 
RUN 50 

RUN "TEST" 
SAVE"PROG",P 



Command Syntax/Function 



SYSTEM 



TROFF 



TRON 



WIDTH 



SYSTEM 

Close all files and return to CP/M. 
May also be used as a program 
statement. 

TROFF 

Turn trace off. 

TRON 

Turn trace on. 



Example 

SYSTEM 



TROFF 



TRON 



WIDTH [LPRINT] exp 
Set terminal or printer carriage width 
Default is 80 for terminal, 132 for 
printer. 

EDIT MODE SUBCOMMANDS 

Subcommand 

A 



WIDTH 86 

WIDTH LPRINT 100 



Function 

Restore original line and restart EDIT at the start of the line. 
Change n character(s). 
Delete n character(s) at the current position. 
End editing and save changes but don't type the rest of the line. 
Delete the rest of the line and insert string. 
Insert string at current position. 
Kill all characters up to the nth occurrence of c. 
Print the rest of the line and go to the start of the line. 
Quit editing and restore original line. 
Search for nth occurrence of c. 
Go to the end of the line and insert string. 
Backspace over characters. In Insert mode, delete characters. 
End editing and save changes. 
Move to next character 

PROGRAM STATEMENTS (except i/o> 

Statement Syntax/Function Example 

CALL CALL variable [(arg list)] CALL ROUT (l,J,K) 

Call an assembly language or 
FORTRAN subroutine. 
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nCc 

nD 

E 

Hstring < escape > 

Istring < escape > 

nKc 

L 

Q 

nSc 

Xstring <escape> 
< rubout> 
< return > 
<space> 



Statement 

CHAIN 



Syntax/Function 



COMMON 



DEF 



DIM 



END 



ERASE 



CHAIN [MERGE] filename [.[line 
Call a program and pass 
variables to it. 
MERGE with ASCII files 
allows overlays. 
If line exp is omitted, CHAINed 
program starts with the first line. 
,ALL means all variables will be 
passed, otherwise variables 
designated with COMMON. 
DELETE allows deletion of an 
overlay before CHAIN is executed. 

COMMON list of variables 
Pass variables to a CHAINed 
program. 

DEF FNx[(arg list)] = exp 
Define an arithmetic or string 
function. 

DEF USRn = address 
Define the entry address for 
the nth assembly language 
subroutine. 

DEFtype range(s) of letters 
Define default variable types 
where "type" is INT, SNG, DBL, 
or STR. 

DIM list of subscripted variables 
Allocate space for arrays 
and specify maximum subscript 
values. 

END 

Stop program, close all files 
and return to BASIC command 
level. 

ERASE variable [.variable...] 
Release space and variable 
names previously reserved for 
arrays. 



Example 

exp] [.ALL] [.DELETE range] ] 
CHAIN "PROG1",1000 

CHAIN MERGE"OVRLY2",1200 



COMMON A,B( ),C$ 



DEF FNA (X,Y) = 
SQR(X*X+Y*Y) 

DEFUSR3 = &2000 



DEFINTI-N 
DEFSTR A.W-Z 
DEFDBLD 

DIM A(3),B$(10,2,3) 



END 



ERASE A,B$ 
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Statement 

ERROR 



FOR 

GOSUB 

GOTO 
IF/THEN 

IF/GOTO 

LET 
MID$ 

NEXT 



Syntax/Function Example 

ERROR code ERROR 17 

Generate error of code (see 

table). May call user ON ERROR 

routine or force BASIC to handle 

error. 

FOR variable = exp TO exp [STEP exp] 

Used with NEXT statement FOR DAY= 1 TO 5 STEP 2 

to repeat a sequence of 
program lines. The variable is 
incremented by the value of STEP. 

GOSUB line number GOSUB 210 

Call a BASIC subroutine by 
branching to the specified line 
number. See RETURN. 

GOTO line number GOTO 90 

Branch to specified line number. 

IF exp THEN statement [:statement...] [ELSE statement...] 

If exp is not zero, the THEN IF X <Y THEN Y = X ELSE Y = A 

clause is executed. Otherwise, 

the ELSE clause or next 

statement is executed. 

IF exp GOTO line [ELSE statement...] 



If exp is not zero, the GOTO 
clause is executed. Otherwise 
the ELSE clause or next 
statement is executed. 

[LET] variable=exp 
Assign a value to a variable. 

MID$(string1,n[,m] ) =string2 
Replace a portion of string 1 with 
string2. Start at position n and 
replace m characters. 

NEXT variable [.variable...] 
Delimits the end of a FOR loop. 



IF ENDVAL > GOTO 200 



LETX = l + 5 



MID$(A$,14) = "KS" 



NEXT I 
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Statement Syntax/Function 



Example 



ON ERROR 
GOTO 



ON/GOSUB 



ON/GOTO 



OPTION 
BASE 



OUT 



POKE 



RANDOMIZE 



REM 



RESTORE 



RESUME 



ON ERROR GOTO line 
Enables error trap subroutine 
beginning at specified line. If 
line=0, disables error trapping. 
If line = inside error trap 
routine, forces BASIC to handle error. 



ON ERROR GOTO 1000 



ON exp GOSUB line [,line] 
GOSUB to statement specified 
by expression. (Ifexp=1, to 20; 
if exp = 2, to 20; it exp = 3, to 40; 
otherwise, error.) 

ON exp GOTO line [.line...] 
Branch to statement specified 
by exp. (If exp= 1, to 20; if 
exp =2, to 30; otherwise, error.) 

OPTION BASE n 

Declare the minimum value for 

array subscripts, n is or 1. 

OUT port, byte 

Puts byte specified to output 
port specified. 

POKE address, byte 

Purs byre specified into memory 

location specified. 

RANDOMIZE [exp] 
Reseed the random number 
generator. 

REM any text 

Allows user to insert comments 
in program (not executed). 
NOTE: ":" does not terminate a 
REM statement. 

RESTORE [line number] 
Resets DATA pointer so that 
DATA statements may be re-read. 

RESUME or RESUME 
Returns from ON ERROR routine 
to statement that caused error. 



ON DATE% + 1 GOSUB 20,20,40 



ON INDEX GOTO 20,30 



OPTION BASE 1 



OUT41,16+DATAO% 



POKE&23100.255 



RANDOMIZE 5 



REM COMPUTE AVERAGE 



RESTORE 



RESUME 
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Statement Syntax/Function 

RESUME NEXT 

Returns to statement after the 

one that caused the error. 

RESUME line 

Returns to the specified line. 

RETURN RETURN 

Return from subroutine to 
statement following last GOSUB 
executed. 

STOP STOP 

Stop program execution, print 
BREAK message, and return to 
command level. 

SWAP SWAP variable, variable 

Exchanges values of two 
variables. 

WAIT WAIT port.mask [.select] 

Suspends program execution, 
reads input at port until (input 
bit [XOR select] AND mask) 
returns non-zero, then continues 
execution with the next statement. 

WHILE/ WHILE exp... WEND 

WEND Execute the statements in the 

WHILE/WEND loop as long as 

exp is true. 



Example 

RESUME NEXT 

RESUME 100 
RETURN 

STOP 

SWAP A$,B$ 



WAIT 21,1 



WHILE AMT >0 



WEND 



PRINT USING Format Field Specifiers 

NUMERIC 



Specifier 

f 



Possible 
Digits 

1 







Field 
Characters 

1 

1 

1 



Definition Example 

Numeric field #### 

Decimal point # . # 

Print leading or trailing sign. +## 
Positive numbers will have "+", ### + 
negative numbers will have 
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Specifier 



$$ 



**$ 



111! 

underscore 

STRING 

! 

\<spaces>\ 
& 



Possible 
Digits 



Field 
Characters 



Definition Example 

Trailing sign. 

Prints "-" if negative, 

otherwise blank. 

Leading asterisk **###.## 

Floating dollar sign. $$##.## 
$ is placed in front of the 
leading digit. 

Asterisk fill and floating dollar **$#.## 
sign 

Use comma every three digits MM#M 
(left of decimal point only.) 

Exponential format. Number #.##]]]•] 
is aligned so leading digit 
is non-zero. 

Next character literal _!#.# 



Single character 

2+ number of spaces 
character field 

Variable length field 



INPUT/OUTPUT STATEMENTS 

Statement Syntax/Function 

CLOSE CLOSE [ [#] f [,[#] f...] ] 

Closes disk files. It no argument, all 
open files are closed. 

DATA DATA list of constants 

Lists data to be used in a READ 
statement. 



Example 

CLOSE 6 

DATA 2.3,"PLUS",4 



Statement Syntax/Function 



Example 



FIELD 

GET 
INPUT 



KILL 

LINE 
INPUT 



LSET 



OPEN 



PRINT 



FIELD [#] f,n AS string variable [,n AS string variable ...] 

Define fields in a random file buffer. FIELD #1 ,3 AS A$,7 AS B$ 

Note: PRINTMUSING] and [LINE] INPUT# 

statements to random files write and read 

data into the FIELD buffer. 

GET [#] f [.record number] GET #1,17*1 + 1 

Read a record from a random disk file. 

INPUT [;] [prompt string;] variable [.variable...] 
INPUT [;] [prompt string,] variable [.variable...] 



Read data from the terminal. Semicolon 
after INPUT suppresses echo of carriage 
return/line feed. Semicolon after prompt 
string causes question mark after prompt. 
Comma after prompt string suppresses 
question mark. 

INPUT #f, variable [.variable...] 
Read data from a disk file. 



INPUT "VALUES";A,B 



INPUT #1,A,B 



KILL "INVEN.BAS" 



KILL filename 
Delete a disk file. 

LINE INPUT [;] [prompt string;] string variable 
Read an entire line from the terminal. LINE INPUT A$ 

Semicolon after LINE INPUT suppresses LINE INPUT "NAME";N$ 
echo of carriage return/line feed. 



LINE INPUT #f,string variable 
Read an entire line from a disk file. 

LSET field variable= string exp 
Store data in random file buffer left 
justified. Or left justify a non-disk string 
in a given field. 

OPEN mode,[#] f,filename[,reclen] 
Open a disk file. Mode must be one of: 
I (sequential input file) 
O (sequential output file) 
R (random input/output file) 

PRINT [USING format string;] exp [,exp.. 
Print data at the terminal using the 
format specified. See table for format 
characters. 



LINE INPUT #2, B$ 

LSET A$ = "JOHN JONES" 
LSET B$=MKS$(MAX) 



OPEN "0",#1, "OUTPUT" 



PRINT USING "!";A$,B$ 
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Statement Syntax/Function 



Example 



PRINT #f, [USING format string;] exp [,exp...] 

Write data to a disk file. PRINT #4,A,B 

LPRINT [USING format string;] variable [.variable] 
Write data to a line printer. 



PUT PUT [#} f [.record number] 

Write data from a random buffer to a 
data file. 

READ READ variable [.variable...] 

Read data from a DATA statement into 
the specified variables. 

RSET RSET field variable=string exp 

Store data in a random file buffer right 
justified. Or right justify a non-disk string 
in a given field. 

WRITE WRITE [list of exps] 

Output data at the terminal. 

WRITE #f, list of exps 

Write data to a sequential file or a 

random field buffer. 

OPERATORS 

Symbol Function 

Assignment or equality test 
- Negation or subtraction 

+ Addition or string concatenation 

Multiplication 
/ Division (floating point result) 

Exponentiation 
\ Integer division (integer result) 

MOD Integer modulus (integer result) 

NOT One's complement (integer) 

AND Bitwise AND (integer) 

OR Bitwise OR (integer) 



LPRINT A.B 
PUT #3,4 

READ l,X,A$ 



RSET B$="CORRECT" 
RSET C$ = MKS$(COUNT) 



WRITE A,B,C$ 
WRITE #1 ,A$,B$ 
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Function 

Bitwise exclusive OR (integer) 

Bitwise equivalence (integer) 

Bitwise implication (integer) 

Relational tests (result is TRUE = 
or FALSE = 0) 



Symbol 

XOR 
EQV 
IMP 

= ,< ,>, 
< =,=< 
>=, = > 
<> 

The precedence of operators is: 

(1) Expressions in parentheses 

(2) Exponentiation (A I B) 

(3) Negation (-X) 

(4) V 

(5) \ 

(6) MOD 

(7) +,- 

(8) Relational operators (=,<>,<,>,< = , >=) 

(9) NOT 

(10) AND 

(11) OR 

(12) XOR 

(13) IMP 

(14) EQV 

ARITHMETIC FUNCTIONS 

Function Action Example 

ABS(exp) Absolute value of expression Y = ABS(A+B) 

ATN(exp) Arctangent of the expression (in radians) PRINT ATN(A) 

CDBL(exp) Convert the expression to a double A = CDBL(Y) 

precision number 

CINT(exp) Convert the expression to an integer B = CINT(B) 

COS(exp) Cosine of the expression (in radians) A=COS(2.3) 

CSNG(exp) Convert the expression to a single C = CSNG(X) 

precision number 

EXP(exp) Raises the constant e to the power of B=EXP(C) 
expression 



12 



Function 


Action 


Example 


FlX(exp) 


Returns truncated integer of expression 


J = FIX(A/B) 


FRE(exp) 


Gives memory free space not used by 
BASIC 


PRINT FRE(O) 


INT(exp) 


Evaluates the expression for the largest 
integer contained 


C = INT(X+3) 


LOG(exp) 


Gives the natural logarithm of the 
expression 


D = LOG(Y-2) 


RND[(exp)] 


Generates a random number. E=RND(1) 

Expression: 
< seed new sequence 
= return previous random number 
>0 or omitted, return new random number 


SGN(exp) 


1 if expression > 
if expression = 
-1 if expression < 


B = SGN(X+Y) 


SIN(exp) 


Sine of the expression (in radians) 


B = SIN(A) 


SQR(exp) 


Square root of expression 


C = SQR(D) 


TAN(exp) 


Tangent of the expression (in radians) 


D = TAN(3.14) 


STRING FUNCTIONS 




Function 


Action 


Example 


ASC(string) 


Returns the ASCII value of the first 
character of a string 


PRINT ASC(A$) 



CHR$(exp) Returns a one-character string whose 
character has the ASCII code of exp 

FRE(string) Returns remaining memory free space 

HEX$(exp) Converts a number to a hexadecimal 
string 

INKEY$ Returns either a one-character string 

read from terminal or null string if 
no character pending at terminal. 

INPUT$(length [,[#] f]) 

Returns a string of length characters 
read from console or from a disk file. 
Characters are not echoed. 



PRINT CHR$(48) 

PRINT FRE(A$) 
H$=HEX$(100) 

A$ = INKEY$ 



X$ = INPUT$(4) 

X$ = INPUT 

X$ = INPUT$(5,*2) 
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Function Action 

INSTR([exp,]string 1,string2) 

Returns the first position of the first 
occurrence of string2 in stringl starting 
at position exp 

LEFT$(string, length) 

Returns leftmost length characters of 
the string expression 

LEN(string) Returns the length of a string 

MID$(string,start [.length] ) 

Returns characters from the middle of 
the string starting at the position 
specified to the end of the string or for 
length characters 

OCT$(exp) Converts a number to an octal string 

RIGHT$(string, length) 

Returns rightmost length characters 
of the string expression 

SPACE$(exp) Returns a string of exp spaces 

STR$(exp) Converts a numeric expression to a 
string 

STRING$(length, string) 

Returns a string length long containing 
first character of string 

STRING$(length,exp) 

Returns a string length long containing 
characters with numeric value exp 

Converts the string representation of 
a number to its numeric value 

SPECIAL FUNCTIONS 

Action 

Converts a 2-character string to an 
integer (CVI). Converts a 4-character 
string to a single precision number 
(CVS). Converts an 8-character string 
to a double precision number (CVD). 



VAL(string) 



I/O AND 

Function 

CVI(string) 

CVS(string) 

CVD(string) 



Example 

INSTR(A$,":") 
INSTR(3,X$,Y$) 

B$=LEFT$(X$,8) 

PRINT LEN(B$) 
A$ = MID$(X$,5,10) 



O$ = OCT$(100) 
C$ = RIGHT$(X$,8) 

S$=SPACE$(20) 
PRINT STR$(35) 

X$=STRING$(100,"A") 
Y$ = STRING$(100,42) 
PRINT VAL("3.1") 



Example 

Y! = CVS(N$) 
A%=CVI(B$) 
C# = CVD(X$) 
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Function Action 

EOF(f) Returns true (-1) if file is positioned 

at its end 

ERL Error line number 

ERR Error code number 

INP(port) Inputs a byte from an input port 

LOC(f) Returns next record number to read or 

write (random file), or number of sectors 
read or written (sequential file) 

LPOS(n) Returns carriage position of line printer 
(n is dummy argument) 

MKI$(value) Converts an integer to a 2-character 
MKS$(value) string (MKI$). Converts a single 
MKD$(value) precision value to a 4-character string 
(MKS$). Converts a double precision 
value to an 8-character string (MKD$). 

PEEK(exp) Reads a byte from memory location 
specified by expression 

POS(n) Returns carriage position of terminal 

(n is dummy argument) 

SPC(exp) Used in PRINT statements to print 
spaces 

TAB(exp) Used in PRINT statements to tab 
carriage to specified position 

USR[n](arg) Calls the user's machine language 

subroutine with the specified argument. 
SeeDEFUSR. 

VARPTR(var) Returns address of variable in memory 
or zero if variable has not been assigned 
a value 

VARPTR(#f) For sequential files, returns the 
address of the disk I/O buffer 
assigned to file number. 
For random files, returns the 
address of the FIELD buffer. 



Example 

IFEOF(1)GOTO 300 

PRINT ERL 

IF ERR = 62 THEN... 

PRINT INP(21) 

PRINT LOC(1) 

IF LPOS(3) >60... 

LSET D$ = MKS$(A) 
LSET A$ = MKI$(B%) 



PRINT PEEK(&2000) 
IF POS(3)>60... 
PRINT SPC(5),A$ 
PRINT TAB(20),A$ 
X = USR2(Y) 

l = VARPTR(X) 

J = VARPTR(#2) 
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TABLE OF ERROR CODES 



Code Error 

1 NEXT without FOR 

2 Syntax error 

3 RETURN without GOSUB 

4 Out of data 

5 Illegal function call 

6 Overflow 

7 Out of memory 

8 Undefined line 

9 Subscript out of range 

10 Redimensioned array 

11 Division by zero 

12 Illegal direct 

13 Type mismatch 

Disk Errors 

Code Error 

50 Field overflow 

51 Internal error 

52 Bad file number 

53 File not found 

54 Bad file mode 

55 File already open 
57 Disk I/O error 



Code Error 

14 Out of string space 

15 String too long 

16 String formula too complex 

17 Can't continue 

18 Undefined user function 

19 No RESUME 

20 RESUME without error 

21 Unprintable error 

22 Missing operand 

23 Line buffer overflow 
26 FOR without NEXT 

29 WHILE without WEND 

30 WEND without WHILE 



Code Error 

58 File already exists 

61 Disk full 

62 Input past end 

63 Bad record number 

64 Bad file name 

66 Direct statement in file 

67 Too many files 
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MICROSOFT BASIC COMPILER 

The following direct mode commands are not implemented on the compiler and will 
generate an error message. 



AUTO CLOAD CONT 

CSAVE DELETE EDIT 

ERASE LIST LLIST 

LOAD MERGE NEW 

RENUM SAVE 



The following statements are used differently with the compiler than with the BASIC-80 
Interpreter: 

1. CALL 

The < variable name > field in the CALL statement must contain an External 
symbol, i.e., one that is recognized by LINK-80 as a global symbol. This routine 
must be supplied by the user as an assembly language subroutine or a routine from 
the FORTRAN-80 library 

2. CHAIN and RUN 

The CHAIN statement is used to chain to a new program overlay using the run time 
module. The RUN statement is to be used to execute any executable file. (Under 
CP/M, any .COM file may be RUN.) 

3. CLEAR 

The CLEAR statement is only supported in compiled programs using the runtime 
module. 

4. COMMON 

The COMMON statement must appear before any executable statements. See 
section 2.7 forfurther details. 

5. DEFINT/SNG/DBL/STR 

The compiler does not "execute" DEFxxx statements; it reacts to the static 
occurrence of these statements, regardless of the order in which program lines are 
executed. A DEFxxx statement takes effect as soon as its line is encountered. 
Once the type has been defined for a given variable, it remains in effect until the 
end of the program or until a different DEFxxx statement with that variable takes 
effect. 

6. DIM and ERASE 

The DIM statement is similar to the DEFxxx statement in that it is scanned rather 
than executed. That is, DIM takes effect when its line is encountered. If the default 
dimension (10) has already been established for an array variable and that variable 
is later encountered in a DIM statement, a" Redimensioned array" error results. 
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There is no ERASE statement in the compiler, so arrays cannot be erased and 
redimensioned. An ERASE statement will produce a fatal error. 

Also note that the values of the subscripts in a DIM statement must be integer 
constants; they may not be variables, arithmetic expressions, or floating point 
values. For example: 

DIMA1(I) 
DIMA1(3+4) 

are both illegal. 

7. END 

During execution of a compiled program, an END statement closes files and 
returns control to the operating system. The compiler assumes an END statement 
at the end of the program, so "running off the end" produces proper program 
termination. 

8. FOR/NEXT and WHILE/WEND 

FOR/NEXT and WHILE/WEND loops must be statically nested. 

9. ON ERROR GOTO/RESUME <linenumber> 

If a program contains ON ERROR GOTO and RESUME <line number> state- 
ments, the /E compilation switch must be used. If the RESUME NEXT, RESUME, 
or RESUME form is used, the /X switch must be used. See the BASIC 
Compiler User's Manual for an explanation of these switches. 

10. REM 

REM statements or remarks starting with a single quotation mark do not take up 
time or space during execution, and so may be used as freely as desired. 

1 1 . STOP 

The STOP statement is identical to the END statement. Open files are closed and 
control returns to the operating system. 

12. TRON/TROFF 

In order to use TRON/TROFF, the /D compilation switch must be used. Otherwise, 
TRON and TROFF are ignored and a warning message is generated. 

13. USRn Functions 

The argument to the USRn function is ignored and an integer result is returned in 
the HL registers. It is recommended that USRn functions be replaced by the CALL 
statement. 

14. %INCLUDE 

The %INCLUDE <filename> statement allows the compiler to include source 
from an alternate file. The %INCLUDE statement must be the last statement on a 
line. The format of the %INCLUDE statement is: 

<linenumber>%INCLUDE <filename> 
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For example, 

999 %INCLUDE SUB1000.BAS 

1 5. Double Precision Transcendental Functions 

SIN, COS, TAN, SQR, LOG, and EXP return double precision results if given a 
double precision argument. Exponentiation with double precision operands will 
return a double precision result. 

16. String Variables 

The string space is maintained differently with the BASIC Compiler than with the 
interpreter. Using PEEK, POKE, VARPTR, or assembly language routines to 
change string descriptors will result in a String Space Corrupt error. 

BASIC COMPILER COMMANDS AND SWITCHES 

Format of a BASIC compiler command: 

[device:] [obj filename] [.[device:] [list filename] ]=[device:]sourcefilename[/switch. . .] 
Switches: 

/E Use/E if the program contains an ON ERROR GOTO statement with the 
RESUME <line number> statement. Line numbers will be included in the binary 
file. 

/X Use /X if the program contains an ON ERROR GOTO statement with the 
RESUME, RESUME 0, or RESUME NEXT statement. Line numbers will be 
included in the binary file. 

/N Do not list generated object code. 

/D Generate debug/checking code at runtime. 

/S Quoted strings of more than 4 characters will be written to the binary file as they 
are encountered. 

/4 Compiler will recognize the lexical conventions of the Microsoft 4.51 BASIC-80 
Interpreter. (May not be used together with /C.) 

/T Use BASIC-80 Version 4.51 execution conventions. 

/C Relax line numbering constraints. Line numbers may be in any order or they may 
be eliminated, but they may not be repeated. With /C, the underline character 
causes the remainder of the physical line to be ignored, and the next physical line 
is considered to be a continuation of the current logical line. /C and /4 may not be 
used together. 

12. Use Z80 opcodes wherever possible. 

10 Substitute the OBSLIB.REL runtime library for BASLIB.REL as the default 
runtime library searched by the linker. 
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SAMPLE COMPILE AND GO 

1. Compile DEMO.BAS to create DEMO.REL 

A>BASCOM 

•DEMO.TTY: = DEMO/N/Z 

2. Link DEMO.REL with BASLIB.RELtocreateDEMO.COM 

A>L80 

*DEMO, DEMO/N/E 

3. Run.DEM0.COM 

A>DEMO 



BASIC COMPILER ERROR MESSAGES 



Compile-time Fatal Errors: 


Run-time Error Messages 


SN 


Syntax error 


2 


Syntax error 


OM 


Out of memory 


3 


RETURN without GOSUB 


SQ 


Sequence error 


4 


Out of data 


TM 


Type mismatch 


5 


Illegal function call 


TC 


Too complex 


6 


Floating overflow or integer overflow 


BS 


Bad subscript 


9 


Subscript out of range 


LL 


Line too long 


11 


Division by zero 


UC 


Unrecognizable command 


14 


Out of string space 


OV 


Math overflow 


20 


RESUME without error 


/O 


Division by zero 
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Unprintable error 


DD 


Array already dimensioned 


50 


Field overflow 


FN 


FOR/NEXT error 


51 


Internal error 


FD 


Function already defined 


52 


Bad file number 


UF 


Function not defined 


53 


File not found 


WE 


WHILE/WEND error 


54 


Bad file mode 


LS 


Long string constant 


55 


File already open 


IN 


INCLUDE error 


57 


Disk I/O error 


CD 


Duplicate COMMON variable 


58 


File already exists 


CN 


COMMON array not 


61 


Disk full 




dimensioned 


62 


Input past end 


CO 


COMMON out of order 


63 


Bad record number 


/E 


Missing/E switch 


64 


Bad filename 


/X 


Missing /X switch 


67 


Too many files 


Compile-time Warning Errors: 




Internal Error— String Space Corrupt 
Internal Error— String Space Corrupt 


ND 


Array not dimensioned 




during G.C. 


SI 


Statement ignored 




Internal Error— No Line Number 
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